home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-03
/
qbrv1_2.zip
/
SAMPLE.BAS
< prev
next >
Wrap
BASIC Source File
|
1991-11-13
|
496b
|
17 lines
10 REM QBRENUM BASIC DEMO FILE
20 CHAIN "TEST",20,ALL,DELETE 60-90
DELETE 20-60: GOSUB 60: GOTO 60
40 REM $INCLUDE: 'SAMPLE2.BAS'
60 IF ERL = 60 THEN 90:ELSE 60
90 IF A<B+3 THEN 130:ELSE 150
REM GOTO 20: RESTORE 20
130 FIELD #1, 12 AS NA$,_ 'NAME
20 AS AD$,_ 'STREET ADDRESS
20 AS CS$ 'CITY-STATE-ZIP
140 ON ERROR GOTO 90
150 ON n GOTO LAB1,160,10000
160 ON n GOSUB 10000: 'GOTO 150
230 RESUME 160: RETURN 150
10000: B = B + 1: PRINT C,B,Q
LAB1: ON ERROR GOTO 0